home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / swr-1.bas < prev    next >
BASIC Source File  |  1994-06-23  |  433b  |  17 lines
  1. 10 PRINT "     ***SWR AS A FUNCTION OF REFLECTED POWER*** "
  2. 20 INPUT "ENTER REFLECTED POWER (PR)"; PR
  3. 30 INPUT "ENTER INPUT POWER (PI)"; PI
  4. 35 PF = PI + PR
  5. 40 K = (PF/PR)^.5
  6. 50 SWR = (K+1)/(K-1)
  7. 60 PRINT PR "REFLECTED POWER (PR)"
  8. 61 LPRINT PR "REFLECTED POWER (PR)"
  9. 70 PRINT SWR "STANDING WAVE RATIO"
  10. 71 LPRINT SWR "STANDING WAVE RATIO"
  11. 72 PRINT
  12. 73 LPRINT
  13. 80 PR = PR + 1
  14. 90 IF PR > PI/3 THEN 110
  15. 100 GOTO 35
  16. 110 END
  17.